home *** CD-ROM | disk | FTP | other *** search
/ PC Open 93 / PC Open 93 CD 2.bin / PDF / webdeveloper / lezione_3 / elencofoto.asp < prev    next >
Encoding:
Text File  |  2003-11-12  |  835 b   |  53 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  2.  
  3. <html>
  4. <head>
  5.     <title>Le foto di Mario Rossi</title>
  6. </head>
  7.  
  8. <body>
  9.  
  10. <h1>Le mie foto preferite</h1>
  11.  
  12. <ul>
  13.  
  14. <%
  15.  
  16. Const adOpenForwardOnly = 0
  17. Const adLockReadOnly = 1
  18.  
  19. Dim sql
  20. Dim conn, rs
  21.  
  22. Set conn = Server.CreateObject("ADODB.Connection")
  23. conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/database/foto.mdb")
  24.  
  25. sql = "SELECT Titolo, Luogo FROM Foto"
  26.  
  27. Set rs = Server.CreateObject("ADODB.RecordSet")
  28.  
  29. rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly
  30.  
  31. do until rs.eof
  32.  
  33. %>
  34.  
  35. <li><%=rs.Fields("Titolo")%>, scattata a <%=rs.Fields("Luogo")%></li>
  36.  
  37. <%
  38.  
  39.     rs.movenext
  40. loop
  41.  
  42. rs.close
  43. set rs = nothing
  44. conn.close
  45. set conn = nothing
  46.  
  47. %>
  48.  
  49. </ul>
  50.  
  51. </body>
  52. </html>
  53.